home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / B / BPlan.cpt / Business Plan™ 1.2 / card_5738.txt < prev    next >
Text File  |  1990-08-11  |  4KB  |  190 lines
  1. -- card: 5738 from stack: in.2
  2. -- bmap block id: 11671
  3. -- flags: 6000
  4. -- background id: 4617
  5. -- name: checkList
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=0 top=223 right=256 bottom=35
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 25860 / 25860
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the locktext of bg fld "checkList" to not the locktext of bg fld "checkList"
  23.   if the locktext of bg fld "checkList" is true then
  24.     set the icon of cd btn id 3 to 25860
  25.   else
  26.     set the icon of cd btn id 3 to 32477
  27.   end if
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 6 (button)
  33. -- low flags: 80
  34. -- high flags: A003
  35. -- rect: left=348 top=257 right=279 bottom=454
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Cross-search
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global oldList
  47.   put "CROSS-SEARCHES FOUND:" & return & return into tempList
  48.   DoList 998,("Date,Check Number,Description,Amount"),1
  49.   if the result > 0 then
  50.     put item 2 of the result into thetype
  51.   else
  52.     exit mouseup
  53.   end if
  54.   if theType = "Date" then put 1 into theType
  55.   if theType = "Check Number" then put 2 into theType
  56.   if theType = "Description" then put 3 into theType
  57.   if theType = "Amount" then put 4 into theType
  58.   ask "String to search for within this list?"
  59.   put it into theString
  60.   if theString is empty then exit mouseUP
  61.   put 1 into x
  62.   repeat for the number of lines in bg fld "thelist"
  63.     set cursor to busy
  64.     if item theType of line x of bg fld "theList" = theString then
  65.       put line x of bg fld "theList" & return after templist
  66.     end if
  67.     put x + 1 into x
  68.   end repeat
  69.   if the number of lines in templist > 2 then
  70.     put bg fld "theList" into oldList
  71.     put templist into bg fld "theList"
  72.     set scroll of bg fld "theList" to 0
  73.     set visible of cd btn "Revert" to true
  74.   else
  75.     answer "Sorry, no cross-references found..."
  76.   end if
  77.  
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 7 (button)
  83. -- low flags: 80
  84. -- high flags: A003
  85. -- rect: left=348 top=233 right=255 bottom=454
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Revert
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   global oldList
  97.   put oldList into bg fld "thelist"
  98.   set visible of cd btn "revert" to false
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 9 (button)
  104. -- low flags: 80
  105. -- high flags: 4000
  106. -- rect: left=36 top=200 right=213 bottom=459
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: flasher
  115.  
  116.  
  117. -- part 11 (button)
  118. -- low flags: 00
  119. -- high flags: 2000
  120. -- rect: left=14 top=58 right=80 bottom=36
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 3860 / 3860
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: panic
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   if the visible of bg fld "help" is true then
  132.     Zoomer 65,72,442,297,154,144,354,229
  133.     Zoomer 154,144,354,229,12,30,34,52
  134.     lock screen
  135.     hide pict of this cd
  136.     hide bg fld "help"
  137.   else
  138.     Zoomer 12,30,34,52,154,144,354,229
  139.     Zoomer 154,144,354,229,65,72,442,297
  140.     lock screen
  141.     show bg fld "help"
  142.     show pict of this cd
  143.   end if
  144. end mouseUp
  145.  
  146.  
  147. on mouseWithin
  148.   ChangeCurs 25
  149. end mouseWithin
  150.  
  151. on mouseLeave
  152.   set cursor to hand
  153. end mouseLeave
  154.  
  155.  
  156.  
  157. -- part contents for background part 13
  158. ----- text -----
  159. MATCHES FOUND:
  160.  
  161. 8/09/90,2570,State Farm,301.83,0
  162.  
  163.  
  164. -- part contents for background part 20
  165. ----- text -----
  166. Choose criteria to search by.
  167.  
  168. -- part contents for background part 19
  169. ----- text -----
  170. State Farm, #2570, is not cleared.
  171.  
  172. -- part contents for background part 22
  173. ----- text -----
  174.  
  175. QUICK HELP FOR THIS CARD
  176.  
  177. This card contains all the checks entered into this stack.  The checks are stored with the following format:
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186. The Cleared Status tells Business Plan whether this item has cleared the bank
  187. (a "1" means it's cleared, a "0" means it's not).  If you want to change the Cleared Status of an item, click on that line.  At the top of the field you will see what you have changed the status to.
  188.  
  189.  
  190.